Private Sub CommandButton1_Click()

     :=ListBox1, Ĺ:=xlAscending
    
End Sub

Private Sub CommandButton2_Click()

     :=ListBox1, Ĺ:=xlDescending

End Sub